home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / defchr$.txt < prev    next >
Text File  |  1994-03-01  |  433b  |  5 lines
  1. 1 ' *** OISAC 2 *** DEFCHR$ ***
  2. 10 CLS:CLEAR:PRINTTAB(9)"*** DEFCHR$ ***"TAB(0)"Code ASCII (252-255) : ";:INPUT@3;X:IFX>255OR X<252THENBEEP:GOTO10ELSEDIMC$(6):CLS:FORI=0TO6:PRINT"["I+1"] =>";:INPUT@5;C$(I):NEXT:FORJ=1TO5:D=0:F=3:C=3:GOSUB30:D=4:F=6:C=7:GOSUB30:NEXT
  3. 20 ERASE C$:DEFCHR$(X)=D$:CALC$=CHR$(X):PRINT"CALC$["CALC$"]="D$;:END
  4. 30 FORI=D TOF:IFMID$(C$(I),J,1)="*"THENA=A+2^(C-I)
  5. 40 NEXT:D$=D$+RIGHT$(HEX$(A),1):A=0:RETURN